home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 2 #6
/
Commodore_Disk_User_Vol.2_6_1989_-.d64
/
hidden graphics2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
83 lines
1000 rem *********************
1010 rem * hidden graphics 2 *
1020 rem * by mike benn *
1030 rem * demo *
1040 rem * *
1050 rem *********************
1060 rem
1070 rem load machine code
1080 rem
1090 x=x+1:ifx=1thenload"hg2 mc",8,1
1100 rem
1110 rem poke character data
1120 rem
1130 gosub1670
1140 rem
1150 rem main program
1160 rem
1170 rem load screen 1
1180 rem
1190 sys52600,"hg data block",8,41000
1200 rem
1210 rem load screen 2
1220 rem
1230 sys52600,"hg data block",8,42000
1240 rem
1250 rem multicolour
1260 rem
1270 sys52603,40800,1,28,12,11,15,0
1280 rem
1290 fori=0to4:sys52606,i,1,8:next
1300 getk$:ifk$=""then1300
1310 fori=0to4:sys52606,i,i+1,8:next
1320 getk$:ifk$=""then1320
1330 fori=8to15:sys52606,0,1,i
1340 getk$:ifk$=" "then1370
1350 forde=0to150:next:next
1360 goto1330
1370 fori=1to5:sys52606,4,i,8
1380 forde=0to150:next:next
1390 getk$:ifk$=" "then1440
1400 goto1370
1410 rem
1420 rem hires
1430 rem
1440 sys52603,40800,0,28,12,11,15,0
1450 fori=0to4:sys52606,i,i+1,i+1:next
1460 getk$:ifk$=""then1460
1470 rem
1480 rem **************************
1490 rem * to contol next part of *
1500 rem * demo press these keys *
1510 rem * *
1520 rem * press '+' to increase *
1530 rem * press '-' to decrease *
1540 rem * press space to escape *
1550 rem **************************
1560 rem
1570 x=1
1580 sys52603,40800,0,28,12,11,15,0
1590 getk$:ifk$="+"thenx=x+1
1600 ifk$="-"thenx=x-1
1610 ifk$=" "then1650
1620 ifx<1thenx=1
1630 sys52606,2,x,8
1640 goto1590
1650 sys52609
1660 end
1670 bl=8:ln=1720:sa=12288
1680 forl=0tobl:cx=0:ford=0to15
1690 reada:ifa>255thenprint"number to large";ln+(l*10):stop
1700 cx=cx+a:pokesa+l*16+d,a:nextd
1710 read a:if a><cx thenprint"error in line";ln+(l*10):stop
1720 nextl:return
1730 data 0,0,85,85,85,85,85,85,255,255,170,170,170,170,170,170,2040
1740 data 171,171,107,107,91,91,87,87,255,255,106,106,90,90,86,86,1986
1750 data 171,171,171,171,171,171,171,171,255,255,171,171,171,171,171,171,2904
1760 data 85,85,85,85,85,85,85,85,0,12,12,60,12,12,12,12,812
1770 data 12,12,12,63,0,0,0,0,60,60,195,195,3,12,12,48,684
1780 data 48,192,255,255,0,0,0,0,0,60,60,195,195,3,60,60,1383
1790 data 3,195,195,60,60,0,0,0,0,12,12,60,60,60,204,204,1125
1800 data 204,255,255,12,0,0,0,0,0,255,255,192,192,60,60,3,1743
1810 data 195,195,60,60,0,0,0,0,0,0,0,0,0,0,0,0,510